open FrGui_common

(* note: there are some more useful GTK stock images, such as the MEDIA_ images,
   but they are for 2.6 only *)

let info = Stock `DIALOG_INFO
let warning = Stock `DIALOG_WARNING
let error = Stock `DIALOG_ERROR
let question = Stock `DIALOG_QUESTION

let bold = Stock `BOLD
let italic = Stock `ITALIC
let strikethrough = Stock `STRIKETHROUGH
let underline = Stock `UNDERLINE

let indent = Stock `INDENT
let unindent = Stock `UNINDENT
let justify_center = Stock `JUSTIFY_CENTER
let justify_full = Stock `JUSTIFY_FILL
let justify_left = Stock `JUSTIFY_LEFT
let justify_right = Stock `JUSTIFY_RIGHT

let select_color = Stock `SELECT_COLOR
let select_font = Stock `SELECT_FONT
let spell_check = Stock `SPELL_CHECK

let okay = Stock `OK
let apply = Stock `APPLY
let cancel = Stock`CANCEL
let yes = Stock `YES
let no = Stock `NO

let cdrom = Stock `CDROM
let floppy = Stock `FLOPPY
let hard_drive = Stock `HARDDISK
let network_drive = Stock `NETWORK

let add = Stock `ADD
let remove = Stock `REMOVE

let clear = Stock `CLEAR
let delete = Stock `DELETE
let undelete = Stock `UNDELETE

let copy = Stock `COPY
let cut = Stock `CUT
let paste = Stock `PASTE

let find = Stock `FIND
let find_and_replace = Stock `FIND_AND_REPLACE

let sort_ascending = Stock `SORT_ASCENDING
let sort_descending = Stock `SORT_DESCENDING

let goto_first = Stock `GOTO_FIRST
let goto_last = Stock `GOTO_LAST
let goto_top = Stock `GOTO_TOP
let goto_bottom = Stock `GOTO_BOTTOM
let go_down = Stock `GO_DOWN
let go_up = Stock `GO_UP

let go_back = Stock `GO_BACK
let go_forward = Stock `GO_FORWARD
let home = Stock `HOME
let refresh = Stock `REFRESH
let stop = Stock `STOP

let close = Stock `CLOSE
let help = Stock `HELP

let missing_image = Stock `MISSING_IMAGE

let new_file = Stock `NEW
let open_file = Stock `OPEN
let save = Stock `SAVE
let save_as = Stock `SAVE_AS
let print = Stock `PRINT
let print_preview = Stock `PRINT_PREVIEW
let undo = Stock `UNDO
let redo = Stock `REDO

let zoom_100 = Stock `ZOOM_100
let zoom_fit = Stock `ZOOM_FIT
let zoom_in = Stock `ZOOM_IN
let zoom_out = Stock `ZOOM_OUT
